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-TITLE SYSUPDSEC = Update Section File System Service 
~IDENT ‘VY rae tt a : 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
tag hy FeO CENVER. CORPORATION, MAYNARD. MASSACHUSETTS. 


IGH 
SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND sores 
IN ACCORDANCE WITH THE hs OF SUCH int Ba D ade THE 
SION OF THE ABOVE gp LEK ol NOTICE. THIS SOFTWARE ANY OTHER 
S_ THEREOF MAY_NOT BE P OVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
A A - NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
oeRPORAT i Oe NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBI 
SOFTWARE ON EQUIPMENT WHICH I 
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Add XIP_B MAXACHODE™ Hela” to IRP extension unl by SUPDSEC 
and use it for page owner access mode instead of IR 
which should contan the mode of the requestor. 
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AUTHOR: PETER H. LIPMAN , CREATION DATE: 21-APR-78 

MODIFIED BY: 

: v03-002 wMC0001 Wayne Cardoza 02-Mar-1983 

: MMGSCRECOM2 has gone away, "MGS INADRINI returns status 
vo3-001 s0p0001 Sop 27 August 1982 
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Ss =~SEP-1984 SYS.SRCISYSUPD 
-SBTTL DECLARATIONS 
INCLUDE FILES: 
SACBDEF zAST control block definitions 
iCondi tional assembly definitions 


Bynsere data structure type codes 
:6 obal section ot ap | definitions 
ns 


04-00 Page 2. 
SEC.MAR;1 (1) 
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F 
F 
F ;1/0 request gecoes defin 
F :Processor er sory levels 
F Offsets from FP into scratch area 
F ‘Process control block definitions 
F ;Page frame number data base definitions 
F ;Process header definitions 
:Processor register definitions 
F Priority increment class definitions 
F :Processor Status Long Word definitions 
F Page table qotry definitions 
F sResource definitions 
F :Section table entry definitions 
F Shared memory control block definitions 
is stem status code definitions 

Virtual address field definitions 


: MACROS: 
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: EQUATED SYMBOLS: 

: Offset from AP 

‘ INADR 
RETADR 
ACMODE 
FLAGS 
EFN 


:O0ffset to input range 
:Offset to return range 
tAccess Mode 
Fiags perenares 

01/0 Event Flag | 
10SB :Q1/0 1/0 ts ta een Address 

ASTADR 3Q1/0 AST addre 

| 


Ssss 
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ASTPRM 3Q1/0 AST pareneter 
Offsets into 1/0 packet while being used as scratch storage for clustering 
, SOFFSET 0,POSITIVE,<- 
SVAPTE,- ;Master pa ge 
Ay BAT .© Process PTE d 
<{RP’RMOD,1>,- sRequest mode 
MFYCRT,=- Cluster count at last modified page 
:Ast address 


IRP_AST,=- 
IRPTASTPRM, - :Ast parameter 
CLUSTER, ;Maximum size of cluster to scan for 


_—- entry address 


OOCOOCCOCOOOCOOOooOoOoOooooo 


COUNT,=- sNumber of pages scanned 
<EXCLURT, 1>,- sExclusive write access flag 


{Re “Er, 1>,- sEvent flag 
>,- :Priority 
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v04-000 DECLARATIONS . eet 9 84:38:22 SYS.SRCISYSUPDSEC.MAR; 1 . dy] 
8 105 IRP_IOSB,- :1/0 status block address 

1 § INCT,= i+ or - 1 according to direction 
8 1 INC4,- ;+ or = 4 according to direction 

: 8 i ;Backing store address of first PTE 

110 <{rp 10ST1,8>,- 31/0 status return area 
1} PROCPTE.= ;Process page table entry address 
0 118 IRP SEGVBN,- s$tarting v ttual address of scan 

<IRP_LENGTH,0>- sTotal size of scratch area use 
0 9 ie <IRP ENGTH,0O T l f h d 
009 SVAPTE: 
PTEDAT: 

Bee IRP_RMOD: 

of FYCNT: 

01 IRP_AST: 

014 IRP_ASTPRM 

018 CLUSTER 
001C COUNT: 
0020 EXCLWRT: 
00 $ IRP_EFN: 
00 IRP~PRI: 
0024 IRP_JOSB: 
0028 INCT: 
O85 INC4: 
0030 BAK: 
0038 IRP_IOST1: 
0040 PROCPTE: 
0048 IRP_SEGVBN: 
ied 1 IRP_LENGTH: 
0000 119 ASSUME IRP_LENGTH LE IRPSC_LENGTH 
0000 118 ASSUME IRP~RMOD EQ IRP$B-RMOD 
0000 119 ASSUME IRP_AST EQ IRPSL_AST 
0000 120 ASSUME IRPTASTPRM EQ IRPSL-ASTPRM 
444 121 ASSUME IRP_EFN EQ IRPSB_EFN 
0000 158 ASSUME IRP_PRI EQ PRI 
0000. =—1 ASSUME IRP_IOSB EQ IRP$L_I0SB 
4 124 ASSUME IRP_IOST1 EQ IRP$L_IOST1 
4 : 5 ASSUME IRP_SEGVBN EQ IRP$L_SEGVBN 
0000 : : : Offsets off the end of the I/0 request packet 
0900 1 § SOFFSET IRPSC_LENGTH,POSITIVE,<- 

130 XIP_L“SCANCNT,= :Count -_1 of pages remaining to scan 
st 131 XIP_L_DIREC,=- 3+ OR = 200 according to the direction 
0 3 1 ¢ XIP-L-STARTVA,=- Starting virtual address to scan 
00 1 <XIP_B_UPDFLG,1>,- Section update lags 
200 ! : <XIPLBLMAXACHODE , 1>,~ span tased access mode for page ownership 

26?,7 spare 
4 : $ SIP _C_LENGTH.O> - sLength of extended 1/0 packet 
C4 XIP_L_SCANCNT: 
C8 XIP_L_DIREC: 
C XIPTL-STARTVA: 
D XIP"B-UPDFLG: 
D XIP_B MAXACMODE 


SYSUPDSEC 
v04-000 


16 
- Update Section File System servies 
DECLARATIONS 


D4 XIP_C_LENGTH: 
3 133 + OWN STORAGE: 
000 141° .LIST MEB 
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ae ~SBITL UPDSEC = Update Section File 
FUNCTIONAL DESCRIPTION: 
; CALLING SEQUENCE: 
CALLG ARGLIST,G*SYSSUPDSEC 


voe-000. UPDse 


— 
~ 
w 


INPUT PARAMETERS: 


INADR(AP) = Address of 2 long words the _ of which specifies 
the starting virtual address, the 2nd specifies the ending 
virtual address (inclusive) of the pages to operate on. 

RETADR(AP) = Address of a 2 Longword array into which is returned 
the starting and ending virtual addresses (inclusive) 
of the pages operated on. 

ACMODE(AP) = The access mode (maximized with calling mode) 

against which the page ownership is checked. 

Only the owner of a page may update its section. 

P) Update section control flags 

) 


SOOCooooooooooooooooooo 
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3 vent flag number to set on write complete 

; 1/0 status block address for reporting the 

3 write completion and its status 

; First word contains the system status. 

: If error status is returned in the first word, 

$ the first bit of the 2nd word (bit 16 of the first 

3 long word) will be set if a write error occurred. 

3 Other errors (e.g. page owner violation) are possible. 
3 The second long word contains the first virtual 


=~ 
nnhux< — 


FLAGS(A 
EFNCAP) 
IOSB (AP 


address not written. 

ASTADR(AP) = AST address for pogert ior write completion 
ASTPRM(AP) ying the AST 

; IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 

RO = System Status Code 

; IMPLICIT OUTPUTS: 
NONE 

; COMPLETION CODE:: 
SS$_NORMAL ;Successful Completion 
SS$_ACCVIO zAccess Violation 
SS$_PAGOWNVIO Page Owner Violation 
SS$_EXQUOTA ;Quota exceeded for pending AST's 
SS$_IVSECFLG Invalid flags set 

; SIDE EFFECTS: 


NONE 


AST parameter for identi 
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: § : PARR RARAAALALALALALA PALA SLASESE SESE LES ESSE SESE CECE S ECE ELEC SCTE EL ae ae 
4; 
3 5 ; teeweeeerereeeee THE FOLLOWING CODE MAY BE PAGED teeeereeeeeeeerer 
0000 a? -PSECT YSEXEPAGED 
B % : PARBRARAASLAAAAALALASAALLALAESALSEE SELES LESE CESSES SELES EES ESE SECC CSCC. 
11° 
$09 1 INADRERR: 
04 0000 1 RET 
0001 14 
O1FC 4 i -ENTRY EXESUPDSEC,“M<R2,R3,R4,R5,R6,R7,R8> 
SE 1€ C2 0003 19 SUBL S“#-MMGSC_LENGTH, SP Reserve area indexed from FP 
58 54 D0 0006 18 MOVL ‘ ;Save PCB address 
FFF4* 30 0009 19 8SBW MMGSINADRINI :Get input address range to R4,R5 
000C 0 sInit return range to null 
F150 €9 000C i BLBC RO, INADRERR 
30 BB O00F ¢ PUSHR #*M<R4,R5> ;Save input address range 
54 58 00 0011 MOVL RB,R4 ;Restore PCB address 
53. 14 AC QA 0014 $¢ MOVZBL EFN(AP),R3 :Get the event flag parameter 
a ee 16 0018 5 JSB SCHSCLREF :Clear the specified event flag 
6 18 AC 0 B05 $$ MOVL OSB(AP) ,R6 :Get 1/0 status block address 
08 13 002 7 BEQL :Branch if none specified 
0024 228 IFNOWRT #8, (R6),708 sMake sure caller could write it 
66 08 00 9p 0024 PROBEW #0,48,(R6) 
7F 613 0028 BEQL © 70$ 
66 7C O02A 383 CLRQ (R6) zsand initialize it 
57 10 AC 00 002C 0 20$: MOVL FLAGS(AP) ,R7 :Get FLAGS parameter 
01 57 01 00 9 31 CMPL R7,#1 ;Make sure no garbage bits are set 
6D 1A 003 3 BGTRU 60$ Branch if invalid section flags 
51 00000004 8F DO 0035 3 MOVL #XIP_C_LENGTH,R1 :Size of packet to allocate 
OOOCOO0O'EF 16 B36 234 JSB EXESALCOCBUF zAllocate, wait if necessary 
04 35 ;Packet type is corrected by WRIPGSBAK 
67 50 €9 004 36 BLBC RO,80$ :Branch if failed to alloc 
pote $34 sand resource wait disabled 
onee 44 ; IPL = ASTDEL, I/0 request packet allocated 
58 52 00 Bote 41 MOVL R2,R8 :Packet address to stable registter 
3E AG «SE «(0048 4g MOVAB PCBSW_DIOCNT(R4),R2 tCheck for Direct 1/0 quota 
QOOO00000"EF 16 Q04C 4 JSB EXESSNGLEQUOTA sand wait if none available 
58 50 =€9 B2 44 BLBC RO,120$ :Branch if exceeded quota 
5 45 sand resource wait is disabled 
50 oc 005 "4 MOVPSL RO ;Get mode of the requestor 
50 50 02 16 cf 05 4 EXTZV #PSLS$V_PRVMOD.#PSL$S_PRVMOD,RO,RO 
FC AD 90 005C 48 MOVB B*MMGSC_MAXACMODE(FPY,- ;Get maximized access mode 
0001 c8 SF 49 XIP_B PRKacteoos (RS) : for page ownership check ing 
10 AB IC AC 7 bS¢ 50 MOVa ASTROR (AP) i L_AST(R8) ;Set AST address and parameter 
10 a8 «oD 6 51 TSTL IRPSL_AST(R8) :AST requested? 
oc Oo 06A 26 BEQL 40$ sBranch if not 
38 AS BS Roe TSTW OG REY ASTCHT (RA) sYes, quota exceeded? 
3 15 oF 54 BLEQ 120$ :Branch if yes, don't wait 


SYSUPDSEC 
v04-000 


AUVIVIOVUIAO & VIP VIP 
MOCOOWDOTAN BNOOONSE 
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50. oC 
03 0B As 06 
38 


50 
00000000" EF 


1 
00000000’ EF 
01 


51 +18 AC 
09 


61 08 a3 


61 0 
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date Section File ~SEP-1984 SYS.SRCISYSUPDSEC.MAR; 1 
55 DECW PCBSW_ASTCNT(R4) Charge for the AST 
2$ BISB #ACBSA_QUOTA,R zAnd note that it is charged 
408: MOVB RO, IRPSB_RMOD (RB) Set requesting mode and AST flag 
28 MOVB EFN(AP),IRPS$B_EFN(R8)  ;Set event flag number 
5 MOVL RG. IRPSL 3TRB) sSet 1/0 status block address 
60 MOVB R7,XIP_B _UPDF!G(R8) :Set section update flags 
61 MOVAB B*MMGSOPBSECPAG,R6 zAddress of per page subroutine 
9 POPR #*M<R2,R3> sRecover saved input address range 
6 BSBW MMGSCREDEL ;Common address range loop 
64 PUSHL R ;Save status 
65 BSBW NSP aE RANGE 
$6 put RO,45 ;Use this bad status rather than CREDEL 
68 45$: TSTL Rg 31/0 packet to be released? 
3 BNEQ 130$ Branch if yes 
A 50$: RET Write was queued successfully 
ie 60$: orem #SS$_IVSECFLG,RO Invalid section flags parameter 
74 70$: MOVZWL #SS$_ACCVIO,RO sAccess violation 
75 80S: PUSHL RO ;Save the status code 
£6 BRB 140$ 
oe ; Release the 1/0 request packet, it was never used 
80 1208: MOVZWL #SS$_EXQUOTA,RO sExceeded quota 
81 1350$: PUSHL RO ;Save_ status 
8 BBCC #ACBSV QUOTA, IRP$B_RMOD(RB),135$ z1f charged for AST 
8 INCW PCB$W_ASTCNT(R4) ;then give back the quota 
84 135$: MOVL R8 :Get 1/0 packet address to release 
32 JSB EXE SDEANONPAGED sRelease the 1/0 request packet 
87 ; Set the event flag so that the caller may wait for it despite the return 
oe ; information showing that nothing was queued. 
90 140$:  MOVZBL EFN(AP),R3 :Get the event flag number 
91 MOVL PCBSL_PID(R4) ,R1 sand the process | . 
38 MOVZBL #PRIS~I10COM,R2 sand the correct priority increment 
9 JSB SCHSPOSTEF Post the event flag, write complete 
94 POPR “M<RO> :Restore saved status 
95 MOVL IOSB(AP) ,R1 31/0 status requested? 
96 BEQL :Branch if not 
97 IFNOWRT #8,(R1) :Branch if I0SB not writable 


1508 
PROBEW #9 #8,(R1) 
EQ. ~—s«156$ 
MOVL RO, (R1) ;Return the error status 


$38 
99 150$: RET and return 
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; Seeeeeerereereer THE FOLLOWING CODE MAY BE PAGED teeeeereerereeeese 
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++ 
FUNCTIONAL DESCRIPTION: - 


CALLING SEQUENCE: 
BSBW MMGSUPDSECPAG 


INPUT PARAMETERS: 


RO = Access Mode for page ownership check 

R2 = Virtual Address 

R4 = Current PCB address 

R5 = Process Header Address - P1 or System Space 

R6 = Count - 1 of pages to be processed including this one 

R7 = +*X200 if going forward in the address space 

= -*X200 if going backwards in the address space 

R8 = Address of an extended length 1/0 request packet 

IRP$W_SIZE = size of extended IRP (XIP_C_LENGTH) 
type filled in by WRTPGSBAK 
IRP$L_ASTADR = AST address if desired 
IRPSL_ASTPRM = AST parameter 
IRP$B_RMOD = Requesting mode 
ACBSV_QUOTA set if AST desired 

IRP$B_EFN = Event "38g number — 
XIP_L_DIREC = + OR = *X200 according to direction of scan 
XIP_B_UPDFLG = Update section flags 

IPL = ASTDEL 

IMPLICIT INPUTS: 
NONE 


OUTPUT PARAMETERS: 


RO = Status Code 
R2 Preserved 
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IMPLICIT OUTPUTS: 
NONE 

COMPLETION CODES: 
SS$$_NORMAL :Successful Completion 
SS$_PAGOWNVIO :Page Owner Violation 
SS$_LENVIO sLength Violation 
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bat fi UPDSECPAG = - Update Section for FY rst Clu Bese 7 9¢:25:82 YeYS. SRCISYSUPDSEC.MAR; 1 ° (3) 
£3 38 ; SS$_ACCVIO yAccess Violation | 
E 6 ; SIDE EFFECTS: 
E 61 ; 
E 96 3 NONE 
3: 65 ; 
E 6§ 3-° 
E9 65 
E9 6 MMGSUPDSECPAG: 
0o0c8 C8 57 00 E9 6 OVL R7,XIP_L_DIREC(R8) i Save direction of scan 
QOOOOOOO'EF 1 EE 68 ISB MMGSUPBSECOWT Find and queue the next cluster 
oe F4 69 TSTL R1 iAnything qu queued for writing? 
Pee i. 70 BNEQ 20$ sBranch 
F4 AD D4 OOF 71 CLRL B“MMGSL_SAVRETADR(FP) Return a null range 
15 50 3 OFB i LBC RO g ‘Branch if error status 
50 0659 Be ‘+ of iS payee. ass -NOTMODIFIED,RO ;Otherwise return alternate success code 
38 D4 01 75 208: CLRL R8 e 1/0 packet in use 
EC AD 5 DO 01 A MOVL Re, B*MMGSL_ SVSTARTVA(FP)* oheturn first address queued 
51 07 0108 37 DECL = RV Page co count = 1 
51 57 C4 10D 78 MULL R7,R1 e unt 
ce. = 3Tté«éESD 119 79 ADOL R1,R2 
56 D4 O11 80 60$: CLRL R6 
05 0115 81 RSB tand return 


iAddress of Last page queued 
sForce end of range 
5 


SYSUPDSEC = Update Section File System ae Fy 16-SEP-19 AX/VMS Macro V04-00 Page 10 SYS 
ibaa di UPDSECAST = Update Section Ast met 7 88: 3§: g2 SYS.SR 42 $YSUPDSEC. MAR; 1 . (4) v04 
1} 4 : ~SBTTL UPDSECAST = Update Section AST 
i} 5 ; FUNCTIONAL DESCRIPTION: 
11 § : This is a PRGIO kernel AST routine invoked by IOPOST at the 
11 § ; completion of a eh GIO write request with an extended 1/0 packet. 
11 s it's & job is to find the next cluster of modified pages to write 
Be a9 ; and either queue the request or post the I/0 completion. 
119 35 ; CALLING SEQUENCE: 
119 94 ; BSBW MMGSUPDSECAST 
11 95 ; 
116 39 3 
116 97 ; INPUT PARAMETERS: 
B18 98 ; 
116 99 ; R4 = Current PCB address 
B18 400 ; R5 = Address of an extended , Lengeh 1/0 request pac ay 
116 «69401 ; IRP$W_SIZE size of extended IRP (XIP_C_LENGTH) 
0116 106 3 . IRPSB_TYPE = DYNSC_IRP 
0116 403; IRPSL_ASTADR = AST address if desired 
Brie the ; IRPSL_ASTPRM = AST parameter 
116 §=6©405 ; IRP$B_RMOD = Requesting mode 
0116 406 ; ACB$V_QU0 A" set if AST desired 
0116 407; IRP$B_EFN = Event flag number 
0116 408; XIP_L-SCANCNT = Count = 1 of pages left to scan 
0116 409; before this transfer completed 
0116 410; XIP_L_DIREC = + OR = *X200 according to direction of scan 
0116 411; XIP_L_STARTVA = First VA used for this transfer 
0116 tig ; XIP_B_UPDFLG = Update section flags 
0116 «4413; XIP"B-MAXACMODE = Maximized access mode for page ownership 
0116 §=414 ; IPRSL_IOST1 = Status of previous write (0:15) 
B18 212 ; = Number of bytes successfully written (16:31) 
0116 417; IPL = ASTDEL 
0116 418; 
0116 419 ; IMPLICIT INPUTS: 
0116 420 ; NONE 
0116 421; 
116 4 § ; OUTPUT PARAMETERS: 
116 423; 
116 424; 
0116 425 ; IMPLICIT OUTPUTS: 
116 4 § ; NONE 
116 427; 
1146 4 § ; COMPLETION CODES: 
116 429; 
116 430; 
116 431 ; SIDE EFFECTS: 
116 4 ¢ ; 
116 433; NONE 
116 434; 
116 435 ;:-- 
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: REAR AAA AREER REE EATER AERA AERA TAKA AAA AKAK HATHA eee Rete eee eee Tees 
; teeeeeeeeeeeeere THE FOLLOWING CODE MAY BE PAGED sxeeeeeeenrereeee 
-PSECT YSEXEPAGED 
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MMGSUPDSECAST:: 
PUSHR #*M<R6,R7,R8> ;Save these registers 
MOVL R5,R8 31/0 request packet address 
MOVL G*CTLSGL_PHD,RS5 :Get P1 address of process header 
ASSUME XIP_L_DIREC EQ XIP_L_SCANCNT+4 
MOVQ i eera Re anen! (RR: RS 7R6=count-1, R7=+ or = *X200 
MOVL XIP_L_STARTVA(R8) ,R :R2 = first VA of this transfer 
MOVL IRPSL~I0ST1(R8) ,RO :Get status and byte count 
EXTZ #<16+0ASV_VPN>,#<16-VASV_VPN>,RO,R1 :Page count transferred 
MULL R7,R1,R3 Directional by e count 
ADDL R3,R2 iNew starting VA = first VA not written 
MOVL R2, IRP$L_IOST2(R8) ;Save it as second I0SB long word 
BLBC RO,100$ :Branch if write error 
SUBL R1,R6 ;Page count remaining to scan 
BLSS 106$ :Branch if did last piece 
JSB MMGSUPDSECQWT :Scan for another cluster to write 
BLBC RO,100$ Dont continue scanning if error, branch 
TSTL Ri Fhe found and queued? 
BEQL 100$ sBranch if not 
POPR #*M<R6,R7,RB> srestore saved registers 
RSB zand return from AST 


Last cluster of pages was written 
; RO = status 


00$: MOVL  R8,R5 
POPR #°M<R6,R7,R8> 
MOVZWL 
BLBS _—sXIRPSL LOsTaR5) , 1208 
BBSS 16,R0,120$ 

120$: MOVL  RO,{RP$L 1Ost1(R5) 
MOVZBL IRPS$B_EFR(RS).R3 
MOVL IRPSL“PID(RS)-R1 
MOVZBL #PRIS~IOCOM,R2 
JSB SCHSPOSTEF 
JMP LOC$DIRPOST1 


31/0 packet address back to R5 
;Restore registers 

:Zero dec 6 bits of status 

Branch if not page write error 

;Set page write error indication 

Set first long word of return status 
;Get the event fiag to post 

iProcess | ; 
Priority increment for 1/0 completion 
:Post the event flag 

:Go return status to IO0SB if specified 
zand issue AST if requested 
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SYSUPDSEC = Update Section File § SEP-1984 AX/VMS Macro V04-00 P 1 
v0e~000 UPDSECQWT =~ - Update Section File for Sing "gr SEP-1984 t 8: 35: g2 toys" SRCISYSUPDSEC.MAR; 1 rn 3) 
: -SBTTL UPDSECQWT = Update Section File for Single Page 
4 


p++ 
; FUNCTIONAL DESCRIPTION: 


2 


CALLING SEQUENCE: 
BSBW =©=MMGSUPDSECQWT 


INPUT PARAMETERS: 


‘G9 Cd OS Cd Cd Cd Od Cd Od Cd OD Od Od CO CD CD OD CD CD CD CD COON OD CD OD 


WOOO ODOOOO OWOOVOOOOOVOWOOOWOWOOOD 


R2 = Virtual Address 
R4 = Current PCB address 
R5 = Process Header Address - P1 or System Space 
R6 = Count - 1 of pages to be processed including this one 
R7 = +*X200 if going forward in the address space 
= =*x200 if going backwards in the address space 
R8 = Address of an extended scenash 1/0 request packet 
IRP$W_SIZE * ze of extended IRP OXIP ¢_LENGTH) 
tree filled in by WRTPGSBAK 
poet ASTADR = AST address if desired 
IRP$L_ASTPRM = dd pergnever 
IRPSBR RMOD = neaéy-auofa's 
. $V_QUOTA se if AST desired 
IRPS$B_EFN = Event-t pog.nus umber 
XIP_L-DIREC = - *x200 occording to direction of scan 
XIP"B-UPDFLG = Update section flags 
XIP_B_MAXACMODE = Maximized access mode for page ownership 
IPL = ASTDEL 


- IMPLICIT INPUTS: 
NONE 


OUTPUT PARAMETERS: 
If write has been queued, then 


RO = #SS$_NORMAL 
number of pages queued for writing 


r) 
™m 
“oun 


virtual address of first page (scan order) queued 
count - 1 of panes Semetecten to scan starting with VA in R2; 


R6 
Extended pert ten of 1/0 request packet updated if write queued 
SPER CANENT = starting a address of request just queued 


count - 10 pages remaining to scan 
starting with t 


write has not been queued, then 


e first page just queued 


— 
~~ 


ap ad ystem status code 
R2 : last virtual address scanned 


n the case of an error, this is the address that caused it 
if ran off the end of range, this is the last VA in the range 
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SIDS DDS DED DDD DS TUT 
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R6 = goynt - 1 of pages remaining to scan starting with VA in R2 
= 0 if at end of range and no more to do 


IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 


SS$_NORMAL Successful Completion 
SS$_PAGOWNVIO ;Page Owner Violation 
SS$_LENVIO Length Violation 
SS$_ACCVI1O zAccess Violation 

SIDE EFFECTS: 


NONE 


RHRAAAAAE ERRATA AERA EAA AAA AAA KAA KAeAeAKeeeeeeeeeeeteeneeeeeeeredt 
eeeeteerereeeeee THE FOLLOWING CODE MUST BE RESIDENT teeeeeeeeerereene 
-PSECT $MMGCOD 


o 
f SERRA AA ARATE KEKE AERA AREA RAAKEKAAKAARAAReeKAAeeAeeeeeeteeeeeeerereees 
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SYSUPDSEC = Update Section File System Ser ee 16-SEP-1984 : 36: AX/VMS Macro V04-00 Page 14 
v02-000 UPDSECGUT = Update Section File for'Sing S-SEPal9RG OS:eo.8e Lene tac Tey Soph sec dans t ” th 
if MMGSUPDSECQWT: 
51 Be 7 CLRL R1 sinitialize. ind tcoter to no pages queued 
free" g 74 BSBW pg 1 9 Na iGet heey ength fable entry 
64 5 E 75 BLBC RO iBranch 1 , lon violation 
8 76 DSBINT #IPL SYNCH :Push current 
i iF 0B MFPR S*a# 7 (SP) 
1 0 DA 8 MTPR rss SINC Soa #PRS_IPL 
8 E 77 jand raise to SYNCH 
53. 6C B443 bf 8 MOVAL apcest pt PHD(R4)CR3),R3 iForn system virtual address of PTE 
51 57 F9 8F 4 7 ASHL + OR - 4 for adding to SVAPTE 
2 8B 1 0 10$: PUSHR #AMCRI 149 R3> 
4 1A 1 CLRL ;PTEPFNMFY should return section/GPTX 
50 00D1 C A 1C ¢ MOVZBL XIP_B_MAXACMODE(R8),RO Access mode to check against page owner 
51 00D0 f 3 1 MOVZBL XIP-B-UPDFLG(R8),R1 tExclusive writer indication 
0254 0 00 8 4 BSBW MMGSPTEPFNMFY Get PFN and modify bit for this PTE 
06 51 E2 3 ? 5 BLBC R1,20$ sBranch if page not 2 gandidete for write 
51 5 . C 36 TSTB R1 sCould be written, is modi fied? 
i} 19 00 28 BLSS 70$ Branch if yes, go io A a cluster 
; Fi 8 BRB 30$ No, try the next page if any 
50 3=«(51 rt 00 589 20$: MOVL R1,R0 Error, or just not a candidate? 
14 12 00 590 BNEQ 60$ :Branch if erro 
OE BA it 591 30S: POPR #*M<R1,R2,R35> ;R3=SVAPTE, RO=VA, A big or -4 
56 D5 0039 236 TSTL R6 Check for end of loop 
09 13 #0038 59 BEQL 40$ sAvoid gost tying VA ond Count 
52 57 CO 0030 594 ADDL RY eRe sNext virtua dress 
a: Boe: 98 595 ADDL R1,R zand next PTE address 
D2 56 «=8F4 004 596 SOBGEQ R6,10$ Try the next page 
50 01 3C 00466 597 40$:  MOVZWL #S$$_NORMAL,RO :End of range, no more to do 
02 11 0049 598 BRB 
OE BA 0048 599 60$: POPR #*M<R1,R2,R3> 
51 D4 004D 600 65$: CLRL Ri No pages queued for writing 
18 «11 pret re BRB 80$ 
Bae, 608 ; Found a page to start the cluster, queue a cluster of pages 
2 Ba 0051 609 70$:  POPR #*M<R1> :Clean off + or - 4 
oocc C8 6E dO bes 6 $ MOVL (SP), XIP_L_STARTVA(R8) Save starting VA for UPDSECAST 
48 AB 6€E DO 005 60 MOVL (SP), IRPSL-SEGVBN(R8) and for WRIPGSBAK 
00¢4 C8 «4656 «6900 «(005c.) «|= 608 MOVL RG. X X{P_L_SCANCNT (RB) sand remaining peed for this write 
51 58 DO 006% 609 MOVL R 31/0 request packet (extended) 
0006 30 0064 610 BSBW WNGSURTPGSBAK :Queue a cluster for write back 
OC BA 0067 611 POPR zRestore saved VA, clean off SVAPTE 
069 612 80$: — ENBINT tBack to called IPL 
12 BE DA 9069 MTPR (SP) +,S*#PRS$_IPL* 
5 006C 613 100$: RSB 
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cat -SBTTL WRTPGSBAK = Write Pages Back to Disk 
: FUNCTIONAL DESCRIPTION: 


; CALLING SEQUENCE: 
BSBW © MMGSWRTPGSBAK 


nm 
1@ 
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INPUT PARAMETERS: 


RO = Page Frame Number of starting page 
R1 = Address of an I/0 request packet 
IRP$W_SIZE = XIP_C_LENGTH if called by UPDSEC 
IRPSC-LENGTH if called by DELPAG 
type Filled in by WRTPGSBAK 
AST address if desired 
AST parameter 
segyess (ne mode 
ACBSV_QUOTA set if AST desired 
= Event flag number 
= Starting virtual address of scan 


= 
IRP$B_TYPE = 
IRPSL“ASTADR == 
IRPSL-ASTPRM == 
IRP$B_RMOD = 


IRP$B_EFN 
IRP$L_SEGVBN 
XIP_B_UPDFLG = Update section flags (if extended packet) 
XIP_B_MAXACMODE = Maximized access mode for page ownership 
= Section Backing store address (PFNSAL_BAK[ROJ) 
if prpenss section page or shared memory global page 
Global page table index if global page 
ye Aa address of process page table entry for first page 
address 
Process header address - P1 or aretes Space 
Count - 1 of pages remaining to be processed including this one 
ong 88 if going forward in address space 
N 


00 if going backwards in address space 
IPL = SYNCH 


IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
RO = #SS$_NORMAL 
R1 =_Number of pages queued for writing 
R2,R3 Scratched 


IMPLICIT OUTPUTS: 
NONE 


PARDEE DRA AAA AAA AA AAA AA AA AAA AAO 
rE) 
N 
' 


COOOOCCOCCOSCOOCOCOCOOOOCOOCOOOOOOOOOCOoOO 


COOCOCCOCCOOCOSOOOCOOOOSOOCOOSOOSOOOOoOO 


DPR_LAAARAEAAAAAAAAAA A AAA AAAaO 


=D 
w 
nHhunnnnnn 


A Ahhh hhh 1) ~~) ~ 1 ~~) ~) ~ 1 ~ 1 ~ ) ~~ ~~) ~~ ~~ 7D ~~) ~~ hh tr) 


SOOoCoooooocooooeo 
PAARARAAAAAAAAO OO 


COMPLETION CODES: 


SIDE EFFECTS: 
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ekteeeeeeeeneeee THE FOLLOWING CODE MUST BE RESIDENT seeeeereeerereeee 
~PSECT $MMGCOD 
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MMGSWRTPGSBAK: : 
PUSHR #*M<R4,R5> Preserve R4 and R5 across call 

: Initialize 1/0 packet for cluster scan 

: ASHL = #=7,,R7, INC4(R1) i+ or = 4 according to direction 
ASHL #-9,R7,1NC1(R1) :+ or = 1 according to direction 
MOVL R1,R7 ;Packet address in stable register 
MOVB #DYNSC IRP, IRP$B_TYPE (R73 :Set packet type, size already set 
sa RO, MMGSGL_MAXPFN ils page in shared memory? 


>Br i 
MOVL  @W*PFNSAL_BAKCROJ,BAK(R7) ;Actual section backing store 
sag ress even if global page 
MOVL aW*PFNSAL_PTECROJ,SVAPTE(R7) ;Master PTE address even if global 
30S: MOVL R3,PROCPTE(R7) Keep process pte address 
R2,PTEDAT(R7) ;Save section adr/GPTX 
MOVE § PCB$B_PRIB(R4),IRPSB_PRI(R7) ;Set transfer priority 


Calculate largest cluster size as the minimum of the default cluster 
size and the number of pages left to operate on. 


MOVZWL 9 W°MPWSGW_MPWPFC,R1 Default cluster size 
CMPL R6,R1 :1f count-1 is smaller 


GEQ 
MOVAL 1(R6),R1 ;then use count as max cluster size 
40S: MOVL R1,CLUSTER(R7) ;Set maximum cluster size 
MOVL #1 ,COUNT(R7) :Count the first page in the cluster 
BRB 80$ sand loop zero or more times 


: Shared Memory global section pages have no PFN data base. 


50s: MOVL R2,BAK(R7) ;Use section table index 
pee ag oVAP TELA?) :Process PTE is the Master PTE 


sJoin common code 
The loop that follows gathers pages to cluster write from the same section 
The pages must (of course) be resident, but not all of them must actually 
be modified. For process section pages. cluster from the first page 
(guaranteed modified) through the last modified page up to the cluster size. 
For global pages, cluster write all the pages in the g ote} writable 
section. The state of the modified bit is indeterminate since it is 
maintained in the individual PTE's of the processes which map the section 


60$: ADDL  _INC4(R7),R sNext PTE address 
BBS gereey TYPO,R2,70$ i1f global pa e (not in sh mem) 
ADD INC1(R7),R zsthen next GPTX as well 

70$ EXTZV #0,#2,I1RP$B_RMOD(R7).RO ;Requesting mode 
CL R1 Assume no update section flags 


"So$Eb=198e 08:59:83 LSYSVSRcSRtcUensecem the rm 


f page is _ in shared memory gbl sec. 
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736: v04-00 Page 1 
- ion File System epvlee 16-SEP-1984 39: AX/VMS Macro . ; 
vou-000" URTPGSGAK Ur te Pages Back to Disk o7SFE $82 86:29:82 jieatehenoaatann 1 
oMXIP_C_LENGTH ;If extended 1/0 packet 
0004 8F 08 A7 2 DA f ghey {pesu SIZE CR?) AXIP_C_ Meal 
oh 3 E MOVB XIP_B_UPDFLG(R7) ,R1 ; Use the save update section flags 4 
24 Bop) 9 : : MOVZBL XIP"B-MAXACMODE(R7),RO : Use maximized mode not requesting mode 
tnd 4 0 : : 75$: BSBW MMGSPTEPFNMFY :Get PFN and modify bit if resident 
§" ‘ 9 EF : ; BLBC RY 1508 iBranch if not resident 
at ; FS ¢ INCL COUNT (R7) Found another resident page 
eM Be f t3? TSTB R1 sSee if it was modified 
4 f ; 5 BGEQ 100$ sBranch if it was not 
- Fg ; $: MOVL COUNT (R7) ht lead then update Last modified page seen 
" af 8 Ay ; F 7 : 7058: SOBGTR CLUSTER(R?) ,60$ Try the next page too 
iH it : Now lock all the pages in the cluster just found 
i og ;Get starting Master PTE 
+ ae be i 748 Taos: SUL3 Fe ae ‘Count - 1 of pages in cluster 
" f Moe a f 610 rte INC4(R7) ,R1 :* -4 if going backwards in address space 
5 4 rr} Ore 746 BCEG 130$ / Branch if only 1 page or going forwards 
ij rte h rrect starting 
3 ing backwards in the address space, form the co 
aH 749 : Ore edd eoctes and virtual address. A jae 
' ;Form starting master address 
ss 3) ¢8 oT 751 ADDL R1,R3 rom are: 
40 7 37 8 a3 53g ADDL Ri eyocPrecR?) iForm starting process PTE address 
27 Hf tS HA See ADDL ay tRbSL SEGVBN(R7) ‘form starting virtual address 
18 a3 aoe a? 50 0128 2g 130$: MOVL MF YCNT(R7) , CLUSTER(R7) ;Loop count is to last modified page 
01 7 Fp ; Given the Master PTE address get each page ready for the write request 
b157pe0 | ° D !- ;Get relevant bits from PTE 
50 83 78800000 8F CB 1 f 760 {50$:  BICL3 a*CEPTESM VALID 1 oe 
PTESM_PGFLVB>, (R3)F,R0 
15¢ e6 bbs im :Branch if page is valid 
3 184 ie BEL 00$ ;Demand zero is inconsistent 
sf dR Bias 88 ASHL #-PTESV_TYPO,RO,R1 zas would be anything other 
wim BET he oe BNEQ so ee than transition 
OO OEE OOI3a 586 EXTV #PFNSV_LOC,#MPFNSS LOC,- ;Get the page location (-4 to 3) 
Borpreo |e 61 D4 aw*PFNSAB_STATELROJ,RO 
a ae O125 ree CASE R¢ <- = ‘ 
O14 fo 26s. io! : tree page list 
vk eee - :1 = on modifie page List 
12 58 § ‘- :2 = on bad page List 
12 ote 40$ '- : = release pending 
12 775 >, TYP Bete 
4' FF BF 52. BF 014 CASEB R2,, #1, $48#<<30001$-30000$>/2>-1 
? 14 30000$: 70$- $ 
BOE" 0129 * STENED"WORD $-300008 
° < 2 
BOE 128 » SIGNED_WORD ; $- $ 
OE' 014D - SIGNED_WORD $- $ 
f * O14F 018 - SIGNED_WORD 40$- $ : : 
131 : back - inconsistent data base 
3 TPGSBAK , FATAL Write pages bac 
FEFF 13 dig 2008: BUG_CHECK iD ° “XFEFF 


é Seed 
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SYSUPDSEC = Update Section File System Service 16-SEP-1984 02:36: AX/VMS Macro V04-00 P 1 SYS! 
v04-000 WRTIPGSBAK = Write Pages Back to Disk -SEP-1984 8¢:25:82 LEYS SRCISYSUPDSEC MAR: 1 we 5) V04: 
0004' vs elIF IDN <FATAL>,<FATAL> , .WORD BUGS_WRTPGSBAK !4 
8 Page is on the free, modified, or bad page List, must remove it 
53. DD 780 220$: PUSHL R3 :Save next PTE address 
FEA6" 30 78) BSBW Piawe Remove page from free or modified page List 
0 BA 7 § POPR #*M<R5> ;Restore next PTE address 
Q FO 783 2408: INSV #PFNSC_WRTINPROG, #PFNSV oe - ;Set state to 
0000'pF40 ’ 784 #PFNSS-LOC,aW*PFNSAB_STATELRO] ;Write in progress 
11 4 BRB 270$ 
8 : Master page table entry is valid, shut off PTE copy of Modify bit, and get PFN 
51 40 A7 0 790 260$:  MOVL PROCPTE(R7) ,R1 Process page table entry address 
61D 791 TSTL (RI) iSee {ft contains @ valid PTE 
18 P86 BGEQ 265$ :Branch if it does not 
07 61 +A €ES5 79 BBCC #PTESV_MODIFY,(R1),265$ ;Shut off process PTE modify bit 
794 sBranch if it was already o 
795 INVALID i gata hl f R1 sInvalidate translation butter for 


IRP$L_SEGVBN(R7) .R1 
MTPR R1,S*#PRS$_TBIS 
sprocess virtual address 


ASSUME PTESV_MODIFY GE 24 3PTE modify bit is in hign byte 
FF AS 04 BA 265$:  BICB #PTESA_MODIFY@-24,-1(R3) ;Shut off modify in master PTE 
50 50 15 00 EF EXTZV #PTESV-PFN,#PTESS_PFN,RO,RO ;Isolate PFN 
OO0O00000'EF 50 O01 CMPL RO ,MMGSGL_MAXPFN zsIs there PFN data base? (SH MEM page) 
Oc 8 8O1A BGTRU 2808 ;Br_if there is none, page is in SH MEM 
0000'DF40 80 8F 8A 270$: BICB #PFNSM_MODIFY,aW*PFNSAB_STATELRO] ;Page not modified 
0000'DF40 86 INCW  a@W*PFNSAW REFCNTCROJ ~;Count an 1/0 reference 
40 A? 04 = =O 280$: ADDL #4, ,PROCPTE(R7) Next process PTE address 
48 A? 00000200 8F CO ADDL #512 RPSL SEGVBN(R7) Next process virtual address 
80 18 A7 FS SOBGTR CLUSTER(R7),150$ ;Loop through each page in the cluster 
; Now set up to queue the packet for writing 
52 30 A7 00 MOVL BAK(R7) ,R2 :Get original backing store address 


zssection address is same for all pages 
Starting master PTE address 

),RO ;Get PFN for first page to write 
z1s this a shared memory gbl sec page? 


MOVL § SVAPTE(R7),R3 : 
EXTZV #PTESV_PFN,#PTESS_PFN, (R3 
CMPL BO ,RROSGL AAXPFN ; 


a tt od ot = I I IOOOOOOOOCOOOOWODO 


Od NOUS AN SO OONAUE WIN CO OONOAOUS WN OOonec: 


€0.00.00009.00 09 00.00.00 00 00 00 09 G9 G0 00 00 00 00 09 00 00 G0 00 00 00 09 C0 G0 00 09 I~ 
= 


dO 
EF A 
D1 B 
1A B BGTRU :Br if page is in shared memory gbl sec 
05.04 a7 1 EO B BS #PTESV_TYPO,PTEDAT(R7),300$ ;Rranch if process section page 
55 0000'CF p C MOVL W*MMGSGL_SYSPHD,RS ;System header for global page 
FE37" 30 C 3908: BSBW RAGS INIECDPKT Convert to file vbn and window 
51 OC A? 00 : 10$: MOVL MFYCNT(R7),R1 :Count of pages to queue 
00000002 C IF GT, CAS_MEASURE 
0000° CF d8 C INCL W°PMSS$GL_PWRITIO :Count number of write 1/0 requests 
OOOO'CF 5§ C 4 7. R1,W°PMSSGL_PWRITES :Count number of pages written 
D 
57 00 D MOVL R7,R5 31/0 packet address 
57 28 AS 9 D ASHL #9, INC1(R5),R7 ;Restore R 
1 D D PUSHL = R1 ;Save page count to return to caller 
S16 653 C E ROT #9,R1,R1 Form byte count to queue 
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v04-000 WRTPGSB - ‘te Pages Back to Disk ety Pi 9¢:25:82 SYS.SRCIJSYSUPDSEC.MAR;1 9 (9) 
FE19" HY BSBW SE sOUsL DPE sBuild and queue the packet for writing 
50 4 C MOVZWL #SS$_NORMAL,RO :Indicate packet successfully queued 
2 BA POPR #*M<R1,R4,R5> :Return byte count in R1, restore R4,R5 
zand return 


; COMPUTE THE VBN FOR THE FIRST PAGE IN THE CLUSTER, THE SECTION TABLE ADDRESS, 
; AND THE WINDOW ADDRESS. 


6 ti 
AK - Wr 
1E 1 
sf 
1EA 
1EC 4 
1ED 5 
1ED § 
1ED 
Bou 
55 9900" ¢F 09 1E 40 $208:  MOVL WOMMGSGL_SYSPHD RS sSystem process header (for gbl pages) 
1F 4) Fh R2,R Section table index 
51 55  20A5 (C1 OF 46 ADDL PHOS PSTBASOFF (RS) .R5.RI sBase of section table 
51614 DE OFA 4 MOVAL (R1)CR2],R1 Section table entry address 
0050 8F 08 1F 44 PUSH “M<R4,RO> Save registers 
6). # 0 rf MOVL SECSL_GSD(R1) ,R6 Address of Global Section Descriptor 
§ a3 ‘7 ; Find the relative position of this page within the section. 
FOF8* 30 5 98 rk BSBW MMGSF INDSHD :Get sh mem ctl blk & common data page 
50 10 A4 C2 0208 50 SUBL2 SHBSL_BASGSPFN(R4),RO ;Get relative PFN within the sh mem 
56 54 06 OSE 0 0c 851 MOVAB GSDSL-BASPFN1(R6),R6  :Get adr of first PFN base in GSD 
52 64 QA 19 £26 MOVZBL # SD$C_PFNBASMAX ,R2 :Get number of PFN bases allowed 
22 D4 021 He CLRL R sZero relative page offset within sec 
66 0 »vb1 0215 54 330$:  CMPL RO, (R6) zIs PFN Less than this base? 
09 19 8 18 855 BLSS 340$ :Br if less than, not within this piece 
54 66 86 (C1 1A He ADDL3 (R6)+,(R6),R4 3Get PFN past end of this piece 
54 50 01 O21E 5 CMPL RO,R4 zIs PFN Less than end of piece? 
0A 19 0221 858 BLSS 356 ‘Br if less than, is within this piece 
55 86 CO 0223 59 340$: ADDL2 (R6)+,R5 3Add pagent to relative page offset 
EC 52. F5 0226 860 SOBGTR R2,330$ :Go check if PFN is in next piece 
0229 61 BUG_CHECK SCANDEADPT zError, PFN must be within this GSD 
FEFF 0O $ WORD F 
0000' 0228 LIF DIF <CONT>,<FATAL> , .WORD BUGS_SCANDEADPT 
50 76 C2 022d B66 350$:  SUBL -(R6) ,RO 3Get relative page within this piece 
50 55 C0 8 9 86 ADDL R5,RO sAdd page counts of other pieces to off 
50° 10 Ai C0 864 ADDL2 SEC$L_VBN(R1),RO :Add in base VBN 
0050 8F BA 0237 65 POPR #°M<RZ,RO> Restore registers 
52 OC Al D0 0238 66 MOVL SECSL_UINDOMCRT) .R2 :Get window address 
88 11 O023F 67 BRB 10$ zsJoin common code 


m1 
‘End’ Rodtty Bit from 'S-SEP=198 08:59:85 Eevgveach8vsuppseccman:1 "29° (99, ve 


~SBTTL PTEPFNMFY = Get PFN and Modify bit from PTE 


ssn 


wes 
— 
mc 
“vo 
"oe 
<2 
ow 
we 
wn 
‘@ 
o 


ee em cc ee ee ce ee ee a ee ee ce ee ce ee ed ed ed ad ed ——— 
+ 


FUNCTIONAL DESCRIPTION: 


Return PFN and modify bit if page is a candidate for write 
back clustering. 


CALLING SEQUENCE: 
BSBW MMGSPTEPFNMFY 


OOCCCOCOoO 


INPUTS: 
RO = Access mode to check against page owner 
R1 = Exclusive writer indicator 
R2 = Process section backing store address or GPTX 
= 0 if suageres to return the above or shared memory global page 
tA Precee rtual Address of Page Table Entry 
= 


OUTPUTS: 


RO = Page Frame Number if successful 
Ri = low bit clear if page is not a candidate for write back clustering 
non-zero if actual error, 0 if just not a candidate 


FS OS OS Ao OS Oo Oe Oe OS OS OS Oo oS SS SS ESS SS SS SS SS SS ESSE Se 


COOOCOSOOOOCOOOOSCSOSCOOSOSOOOOCOOOOOOOOOOOOO 


= low bit set if page could be cluster written 
8 bit 7 set if modified page 
Hy R2 = Process section address if process page 
= GPTX if g\ebet page 
4 R3—s preserve 
2 = 
9 (ARRAS ASASALAALALAALALALASLALEASLERESESE LESSEE ESSE ERASER RAE SEAS S EERE ASS 
; eeeeeeeeeeeeeene THE FOLLOWING CODE MUST BE RESIDENT teeeeneanaeeanene 
0000 2 -PSECT $MMGCOD 
; 3 1 : tARRRASARASAASALELASALASESESES EEL ESE EEE EEE E ERR E REESE SARE SESE RECESSES 
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voeeD08 PTEPENMS Y = Get PFN and Modi fy bit from gro e E582 86:85:42 SYS.SRCISYSUPDSEC.MAR; 1 ’ Hy 
‘] $13 -ENABL LSB 
41 13 3 Poges with PFN's greater than MAXPFN must be in shared memory (or PFN-mapped, 
41 318 ; PTESV_WINDOW set). Shared memory pages are always mapped via global sections. 
rf 81 3; There is no PFN data base for shared memory global section pages. 
4] 31 SHM_PAGE: 
0053 gf BB | PUSHR #*M<RO,R1,R4,R6> Save registers 
1 Be 4 9 CLRL sIndicate no decrement to PTE ref count 
£0R8" 8 47. 9 § BSBW pee, noeeerre sFind SHMGSD for this PF 
25 3 4A 9 BLBC RO, 30 ;Branch if none found (ERROR CONDITION) 
52 A6 «15 AG 1 2B 4 4 CMPB HBSB_PORT(R4) , GSDSB_CREATPORT (RO) Ils process on creator port? 
19 12 5 5 BNEQ Br if different port, cannot do update 
52 16A6 3C 54 9 § MOVZWL GSDS$W_GSTX(R6) ,R2 Get global section table index 
9 D4 58 9 CLRL R i Asguae pase not a wrt candidate 
13 20 A6 E1 5A 9 8 BBC #SECSV_WRT GSD$SW_FLAGS(R6), O$ ;Br if section not writeable 
053 8F BA 5F 3 POPR #*M<ROTR1 RG, ROD Restore registers 
3 04 £9 63 0 ADDL2 #4,S Clean off saved input backing store adr 
00 5 16 8 66 8931 BBCS #PTESV_TYPO,R2,10$ Treat section as a process section 
._ OO8E 1 6A 9 § 10$: RW sin WRTIPGSBAK routine 
50 0384 8F C $8 a3 gos: MOVZWL #SS$_NOTCREATOR,RO Return error code 
04 AE 0 00 2 934 308: OVL P sInsure that error code gets to R1 
0053 8F A 760 =—-935 POPR #*M<RO,R1,R4,R6> Restore registers 
00D8 1 8 oA 339 BRW 180$ ;Page not candidate for update 
027b 938 MMGSPTEPFNMFY 
51 DD 7D 48=6939 PUSHL Ri :Save exclusive writer bit 
52 dD 7F =. 940 PUSHL R2 sand the input backing store address 
ss .% ow 81 941 EXTZV #VASV_VPN,AVASS_VPN,R3,R1 Check for presence of page table 
0000'DF41 05 86 ac§ TSTL @W“MMGS$GL_SPTBASECRIJ 314 SPT entry is not valid then 
51 18 8B «94 BGEQ sthis page table is not resident 
Ss & Si 8 8D 944 CMPZV #PTESV_OWN, MPTESS_OWN, (R35) ,RO ;Check for page owner violation 
75 19 0292 945 BLSS_  130$ Branch if it is 
50 63 78800000 8F CB 94 308 BICL3 #*C<PTESM_VALID !- jGet valid bit 
9C 894 PTESM_TYPT ! PTESM_TYPO !- type bits 
029C 948 PTESM_PGFLVB>,(R3),RO  ;and PFN/GPTX from the PTE 
i; 18 9C 6949 BGEQ sBranch if not valid 
3¢ 501 EO 9 50 BS #PTESV_WINDOW,RO,70$ :Branch if py mopped 
51 50 OD 9C O@A 51 40$:  ROTL &<320-<PTESV MODI FY-PENSY_MODIFY>>.RORI sRI<7> = Modify bit 
oS 7 0 EF A6 828 EXTZV #PTESV_PFN,APTESS_PFNW,ROJRO ;Isolate PFN 
00000000‘ EF 0 01 95 MPL RO, MMGSGL_MAXPFN zsIs this a SH MEM page? 
8D 1A B 954 BGTRU SHM_PAG :Br if it is a SH MEM page 
51 O0O0'DF40 868 B4 955 50$: BISB @W*PFNSAB_STATECRO),R1 ;Or in PFN copy of Modify bit 
52 O00'DF40 OD BA 828 MOVL aW*PFNSAL_BAKCR 1,R2 H acking gtere scpress to check 
3 age 
0000"DF40 53 1 O8e0 98 CHPL -R3,@W*PFNSAL_PTELRO] —:1f process PTE address is different 
0D i C 95 BEQL ;Branch Af process page 
52 0000'DF40 OOO'CF ¢ C 960 SUBL3 W*MMGSGL GPTBASE ,aW*PFNSAL _PTELRO oR2 ;Offset from GPT base 
52 re eat D1 61 ROTL #<32-2>,R2,R Form Global Page Table Index 
3 D D 62 60$: TSTL (SP) sSpecified section or GPTX? 
1 D 6 BEQL 80$ :Branc not, return section or GPTX 
6E D1 D9 4 CMPL R2, (SP) :Yes, check thet this one matches 
13 02DC 965 BEQL 9 é :Branch if it is 
11 D § 70$: BRB 1708 ;Not the same, end of cluster 
sa ooShrords BG H588 Sen $08: Rove SospPhda, oaxcnoy az itheskehat pape 10 Peatly writable 
. : Che a e 
66 16 «€E1 E 38 BBC PPTESY AYPO RS. 1768 gmaking sure tt is a section. 
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v0e= PTEPFNMFY = Get PEN and Modify bit from SesePo}oad OS So.85 fare ee HGtO NORE O0 oe 4, 
g@ 28 is E1 ED 4 BBC #PTESV_WRT,R +1708 that it is writable 
E 1 EO OQgF BBS #PTESY CRF ,R2,170$ sand that it is nor copy on reference 
04 BA 7 7 POPR ®M<CRCS Fetch return section/GPTX 
07 52 16 ~«=€0 4 t? BBS #PTESV_TYPO,R2,110$ iBranch if not a global page 
FB «975 ; For the case of Global pages, the ‘'complete’’ test for modified is not 
FB 8 ; possible since all process’ which have valid PTE's for the global page 
FB 77 ; have their own copy of the eer ty bit. This is only folded back into 
FB 4 ; the PFN data base when the page is removed from the process’ working 
FB 79 ; set. If the “exclusive write’ flag is set, a Global page is only 
FB 980 ; considered modified if the process PTE or the PFN data base says that 
FB 4 1 ; the page is modified. Otherwise, alt Global Writable pages are considered 
4 3 § 3; modified for the purposes of this write back logic. 
4 GE cs FB 984 100$: BLBS  (SP),110$ :Branch if exclusive writer 
51 80 8 OoF 989 BISB #PFNSM_MODIFY,R1 :Force modify for global writable page 
51 01 CB 030 9 § 110$: BISL #1, sIndicate successful return , 
5E 9 B38 987 120$: ADDL #4,SP iClean off save exclusive writer bit 
0 8 +4 RSB 
09 989; 
$08 444 ; Page owner violation 
51 O1EC 8F 3C 0309 838 130$:  MOVZWL #SS$_PAGOWNVIO,R1 ;Return error status 
Se Ob | Baoe ear BRB 180$ 
b318 45 3; Page table entry was not valid, see if it is transition or global 
41 i3 031 399 140$:  BEQL 170$ :Branch if demand zero, end of cluster 
51 50 EA 8F 3 ba 998 ASH #-PTESV_TYPO,RO,R1 Transition page? 
se baie 44 BEQL 160$ Branch if yes 
0319 1001 ; Process page table entry is not valid and not transition. 
ba12 1308 ; See if it is global. 
19 1003 ; 
51 O01 91 19 1004 CMPB #1,R1 sTYP1 = 0, TYPO = 1 ? 
35 12 031¢ 1005 BNEQ 176$ ‘Branch if not global 
50 50 16 OO EF if 1308 ee #PTESV_GPTX #PTESS_GPTX,RO,RO sIsolate GPTX 
CB 100 BICL3 #*C<PTESM VALID !- iGe bit 
4 1008 PTESM_TYPT ! PTESM_TYPO !- s*ype bits 
4 1009 PTESM PGFLVB>,- zand PFN/GPTX 
50 0000'DF40 78800000 &F 4 1010 a@W“MMG$GL_GPTBASECROJ,RO ;from the global PTE 
95 14 1011 BGTR 150$ :Branch if not valid and not DZRO 
1 13 1 \¢ BEQL 170$ :Branch if demand zero to end cluster 
re +) 101 BRW 40$ :Process valid master PTE 
51 50 EA 8F 5 1014 150$ ASHL #-PTESV_TYPO,RO,R1 Check for transition state 
Ww 3 : "4 : 1? BNEQ 170$ zEnd of cluster if not 
oe 9 ; This is a transition page. If it is on the free or modified page List 
: : 18 3; or in the RELPEND or ACTIVE state, then it is still a candidate. 
03 00 €E€ C 1020 1608: EXTV  #PFNSV_LOC,#PFNSS Loc - ;Get page location (-4 to 3) 
51 0000'DF40 Hi 1 aW*PFNSAB_STATELROJ,R1 
44 1 4 ASSUME PFNSC_RDERR EQ 4 ;Page read error -4 
44 1024 ASSUME PFNSC_WRTINPROG EQ 5 sWrite in progress -3 
44 1025 ASSUME PFNSC_RDINPROG EQ ;Read in progress -2 
44 1026 ASSUME PFNSC_ACTIVE EQ sActive - 
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voue008 PTEPENMEY - Get PFN and Modi fy bit from iets Ti §g:25:42 SYS.SRCISYSUPDSEC.MAR;1 ’ Hi) 
44 1027 ASSUME PFNSC_FREPAGLST EQ 9 :0n free pa e list 
44 1 § ASSUME PFNSC_MFYPAGLST EQ On modified page List 
44 | ASSUME PFNSC_BADPAGLST EQ § :0n bad page t st 
rr 1 9 ASSUME PFNSC_RELPEND €Q Release pending 
44 1 § CASE R1,<- 
44 1 6 $,- 371 = active 
44 1034 $,- :0 = free page List 
44 1035 00$,- i1 = modifie page list 
44 1 $3 190$,- ig = bad page List 
44 1 2008 - 35 = release pending 
44 1038 > TYPESB LINE T=#-1 
04' FF 8F 51 8F 44 sooors: CASES RA ,#-1,S4#<<30003$-30002$>/2>-1 
porr 49 « SIGNED_WORD O0e- 000 $ 
017" 0348 «SIGNED _WORD 0$-30002$ 
0017' 034D « SIGNED_WORD 00$-30002$ 
B210, 4F - SIGNED_WORD 190$- one $ 
0017" 8 51 - SIGNED_WORD 200$-30002$ 
5 30003$: 
0353 1039 ; 
O32 1999 ; This page is not part of the current cluster 
51 04 O38 1pt8 170$:  CLRL R1 ;Return error status 
04 BA $323 + 180$: POPR #*M<R2> ;Clean off saved input backing store adr 
AC 11 ttt 1308 BRB 120$ 
0359 1046 ; This page is on the bad page List, if it does not have the ‘'bad’’ bit 
0359 1047 ; set, then the page was placed there by the modified page writer due to 
b326 1908 ; awrite error. In this case the page should be a candidate for write back. 
F3 0000'DF40 05 EO B328 1329 190s: BBS #PFNSV_BADPAG, aW*PFNSAB_TYPECROJ,170$ ;End cluster if bad bit set 
0360 1936 ; This page is resident and has no I/0 pending. It may be clustered. 
51 D4 0360 1054 200$: cCLRL RI :No modify bit from PTE 
FFF 86331 Bae8 1055 BRW 50$ 
0365 1056 
0365 1057 -DSABL LSB 
0365 1058 
0365 1059 ~ END 
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ACBSM_QUOTA = 40 MMGSCREDEL eeeeeree YX 02 
ACB$V_QUOTA = MMGSC_LENGTH = FFFFFFES 

ACMODE = C MMGS$F INDGSOPFN eeeeenee =X 
ASTADR = MMGSF INDSHD eeeeeeee =X 
ASTPRM = 8 ; MMGSGL_GPTBASE teeeeeee YX 

BAK od man a eeeteree =X 3 
BUGS_SCANDEADPT eereenee =X 3 MMGSGL-SPTBASE eeeeeree =X 

BUGS _WRTPGSBAK eeereeee =X MMGSGL_SYSPHD eeeeeeee =X 3 
CA$_PEASURE = 8 0 MMGSINADRINI aeeneene =X 8 
CLUSTER 1 GSINIBLOPKT eeeneeee =X 
COUNT 0 1c MMGSL_MAXACMODE = FREFFFFC 
CTLSGL_PHD eerieene x 02 Sot apAyRE IADR = FFRFFFFS4 

DIR... = 00000001 MMGSL_SVSTARTVA = FFFFFFEC 
DYNSC_IRP = 4844 ry GSPTEINDX aeaneere =X 3 
EFN = 00 14 MMGSPTEPFNMFY 0000027D R 3 
EXCLWRT 0000020 MMGSREMPFN eeeneeee =X 8603 
EXESALLOCBUF eekeneee §=6X o MMGSRETRANGE eeeneere =X 02 
EXESBUILDPKTW teeeeeee KX 0 MMGSUPDSECAST 00000116 RG 02 
EXESDEANONPAGED teeeeeee =X 8 MMGSUPDSECPAG OOOO0E9 R Bg 
EXESSNGLEQUOTA eeeeeeee =X MMGSUPDSECQWT 0000000 R 0 
EXESUPDSEC 00000001 RG 0 MMGSWRTPGSBAK G000006D RG 03 
FLAGS = Bobo po SS MPWSGW_MPWPFC eeeeeeee =X 803 
GSD$B_CREATPORT = 0000005 PCB$B_PRIB = 0000002F 
GSD$C_PFNBASMAX = 945044 494 BSL_PHD = 0000006¢ 
GSD$L_BASPFN1 = 00000054 Pl = 00000060 
GSD$W_FLAG = BROho TS PCBSW_ASTCNT = 00000038 
GSD$W_GSTX = 00000016 PCB$W_DIOCNT = 0000003E 

INADR = 00000004 PFNSAB_STATE eeeeeene x 03 
INADRERR 00900000 R 02 PFNSAB_TYPE eeeeeeee =X = 03 
INC1 Booboe Se PFNSAL_BAK eeeneene =X 8603 
INC4 000002C PFNSAL_ eeeneete =X 03 
IOCSDIRPOST1 eereeere = X 02 PFNSAW _REFCNT aeeeneee =X | 03 
10SB = 444 PFNSC_ACTIVE = 00000007 
IPL$_SYNCH = 00000 PFNSC_BADPAGLST = 44 f 3 
IRPSB_EFN = 000000 PFNSC_FREPAGLST = 00000000 
IRP$B_PRI = 000000 PFNSC_MFYPAGLST = 00000001 
IRP$B8_RMOD = 000000 PFNSC_RDERR = 444 
IRPSB_TYPE = 3 Bobb re PFNSC_RDINPROG = 4 one 
IRPSC_LENGTH = 000000C4 PFNSC_RELPEND = 0000000 

IRPSL_ = 44 Bie PFNSC_WRTINPROG = 44 
IRPS$L_ASTPRM = 00000014 PFNSM_MODIF = 000 4 
IRP$L_IOSB = 00000024 PFNS$S_LOC = 000 B88 
IRP$L_IOST1 = 00000038 PFNSV_BADPAG = 00000005 
IRPS$L_IOST2 = 3 C LOC = B30 $ 9 
IRP$L_PiD = PFNSV_MODIFY s 

IRPS$L_SEGVBN = 0000004 PHD$L_PSTBASOFF = 00000020 
IRP$W_SIZE = 83 0 PMS$GC_PWRITES aeeneere =X = =—03 
IRP_AST 900001 PHSS$GL~PWRITIO teeeeeee X 03 
IRP~ASTPRM 14 PRS_I = 00000012 

IRP_EFN 2 PRS _TBIS = 3A 

IRP_10SB 4 PRIS$_IOCOM = 01 
IRP_1OST1 8 PROCPTE 4 
IRP_LENGTH ag PSL$S_PRVMOD = ° 
IRP~PRI PSL$V~PRVMO = 

ao at ec : Ha 

MFYCNT 0c PTESM_TYP = $200000 


SYSUPDSEC 
Symbol table 


4h do TYP) 
TESR_VALL ‘? 


SHB$B~PORT 
SHBSL ~BASGSPFN 
HM_PAGE 
SS$_ACCVIO 
$$$ ~EXQUOTA 
S$ IVSECFLG 


=NORMA 
53$_ NOT CREATOR 


$AB 
YSEXEPAGED 
SMMGCOD 
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00000000 


0001 
0000 
0000 
0001 
0001 
0024 
0000 
i) 
0000 
3 
006 
at 
38 
tk 
000D 
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0 : 
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Attributes 
NOPIC  USR 
PIC USR 
NOPIC USR 
NOPIC USR 


16-SEP=1 AX/VMS ro V04-00 Page 25 SYS 
SEI IRS BgieSig2 PANLVES acre V0 er 00 ast eH) v04 
CON LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SON ABS. OLEK MOSH CEE “CRD MOURT WOVEC BYTE 
CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 


eee lee ee —— 
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Geeece weecececeeee Secs es en cawea $ 


! Performance indicators H 


ben eer ec eee meee een ese eee 


Phase Page faults CPU Time Elapsed Time 


Initialization 1 ‘8 .07 0: 80.56 
Command processing 107 :00. 0:00:01. g 
Pass 4 715, : 18] 
Symbol table sort 00:02. :00:02.41 
Pass 20 :00: § :00:04.1 
Symbol table output 19 :00:00. :00:00.1 
Psect synopsis output 1 0: if 06 0: 8: 8 
:00: § §:5 6.16 


Cross-reference output 
Assembler run totals 


~“ 
oO 
NO 
oo 


. 0: 

[hs yorking set Limit was 1650 pages. 

94749 bytes (186 pages) of virtual memory were used to buffer the intermediate ggde. 

There were 80 pages of symbol table space allocated to hold 1436 non-local and local symbols. 
1059 source Lines were read in Pass 1, progyc tng ¢ object records in Pass 2. 


pages of virtual memory were used to define macros. 


Macro Library name Macros defined 


“$333 8DUA28: [SVS 0842118. 1 21 
$255S$DUA28: CSYSLIBISTARLET.MLB;2 10 
TOTALS (all Libraries) 31 


1596 GETS were required to define 31 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:SYSUPDSEC/OBJ=OBJ$:SYSUPDSEC MSRC$:SYSUPDSEC/UPDATE=(ENH$: SYSUPDSEC) +EXECMLS$/LIB 
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